home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / MegaSort Stack.cpt / MegaSort Stack / card_6218.txt < prev    next >
Text File  |  1990-12-13  |  3KB  |  124 lines
  1. -- card: 6218 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 12840
  5. -- name: explain2
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 2001
  11. -- rect: left=27 top=40 right=200 bottom=479
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 
  20.  
  21.  
  22. -- part 4 (button)
  23. -- low flags: 00
  24. -- high flags: A003
  25. -- rect: left=27 top=225 right=290 bottom=117
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 1 / 1
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Tell Me More
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   push card
  37.   visual effect dissolve
  38.   go to card "Intro"
  39. end mouseUp
  40.  
  41.  
  42.  
  43.  
  44. -- part 5 (button)
  45. -- low flags: 00
  46. -- high flags: A003
  47. -- rect: left=387 top=225 right=290 bottom=477
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 7012 / 7012
  50. -- text alignment: 1
  51. -- font id: 0
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: Show Me
  56. ----- HyperTalk script -----
  57. on mouseUp
  58.   push card
  59.   visual effect dissolve
  60.   go to card id 3255
  61. end mouseUp
  62.  
  63.  
  64.  
  65.  
  66. -- part 7 (button)
  67. -- low flags: 00
  68. -- high flags: A003
  69. -- rect: left=267 top=225 right=290 bottom=357
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 1007 / 1007
  72. -- text alignment: 1
  73. -- font id: 0
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: Print the notes
  78. ----- HyperTalk script -----
  79. on mouseUp
  80.   Put PutPathName("File name for notes?","MegaSort Notes") into fName
  81.   If fName is empty then exit to HyperCard
  82.   set cursor to watch
  83.   open file fName
  84.   push card
  85.   repeat with i=3 to 14
  86.     go to card "explain" & i
  87.     write card field "text field" & return & return to file fName
  88.   end repeat
  89.   close file fName
  90.   pop card
  91.   set cursor to hand
  92. end mouseUp
  93.  
  94.  
  95.  
  96. -- part 8 (button)
  97. -- low flags: 00
  98. -- high flags: A003
  99. -- rect: left=147 top=225 right=290 bottom=237
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 5543 / 5543
  102. -- text alignment: 1
  103. -- font id: 0
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: Technical Docs
  108. ----- HyperTalk script -----
  109. on mouseUp
  110.   push card
  111.   visual effect dissolve
  112.   go to card "explain3"
  113. end mouseUp
  114.  
  115.  
  116.  
  117. -- part contents for card part 1
  118. ----- text -----
  119.  
  120. WELL, NOW YOU CAN!!
  121.  
  122. Introducing MegaSort, the sort that does everything that I could think of.  MegaSort allows up to 3 sort keys.  Each key can be a different type.  Any key can be ascending or descending.  Any key can be a chunk of a chunk.
  123.  
  124.